J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G29F/G29_GORO.Dxr/00069.ls

Text File | 1998-01-22 | 3.8 KB | 201 lines

global g_no, jumplistkey, i

on startMovie
  set mycursor to [1, 2]
  repeat with i = 10 to 19
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6"]
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donext
  if (g_no + 1) = 7 then
    set g_no to 0
  end if
  go(getAt(jumplistkey, g_no + 1))
end

on doback
  if (g_no - 1) = 0 then
    set g_no to 7
  end if
  go(getAt(jumplistkey, g_no - 1))
end

on doexit
  sound stop 1
  go("M5", "@::JMACMENU")
end

on crtopen
  puppetSprite(8, 1)
  repeat while the stillDown
    set the memberNum of sprite 8 to 11
    updateStage()
  end repeat
  set the memberNum of sprite 8 to 10
  updateStage()
  puppetSprite(8, 0)
end

on crtclose
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 13
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 12
  updateStage()
  puppetSprite(9, 0)
end

on crtback
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 22
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 21
  updateStage()
  puppetSprite(21, 0)
  set the visible of sprite 2 to 1
end

on crtnext
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 20
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 19
  updateStage()
  puppetSprite(20, 0)
  set the visible of sprite 2 to 1
end

on crtclose2
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 24
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 23
  updateStage()
  puppetSprite(22, 0)
  set the visible of sprite 2 to 1
end

on crttaberu
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 33
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 32
  updateStage()
  puppetSprite(23, 0)
end

on crtreiyar
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 41
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 40
  updateStage()
  puppetSprite(23, 0)
end

on crthaikei
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 47
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 46
  updateStage()
  puppetSprite(23, 0)
end

on crtkumo
  puppetSprite(24, 1)
  repeat while the stillDown
    set the memberNum of sprite 24 to 49
    updateStage()
  end repeat
  set the memberNum of sprite 24 to 48
  updateStage()
  puppetSprite(24, 0)
end

on crthonoo
  puppetSprite(25, 1)
  repeat while the stillDown
    set the memberNum of sprite 25 to 51
    updateStage()
  end repeat
  set the memberNum of sprite 25 to 50
  updateStage()
  puppetSprite(25, 0)
end

on crthikari
  puppetSprite(26, 1)
  repeat while the stillDown
    set the memberNum of sprite 26 to 53
    updateStage()
  end repeat
  set the memberNum of sprite 26 to 52
  updateStage()
  puppetSprite(26, 0)
end

on crtotoko
  puppetSprite(27, 1)
  repeat while the stillDown
    set the memberNum of sprite 27 to 55
    updateStage()
  end repeat
  set the memberNum of sprite 27 to 54
  updateStage()
  puppetSprite(27, 0)
end

on crtonna
  puppetSprite(28, 1)
  repeat while the stillDown
    set the memberNum of sprite 28 to 57
    updateStage()
  end repeat
  set the memberNum of sprite 28 to 56
  updateStage()
  puppetSprite(28, 0)
end

on crtmovie
  puppetSprite(29, 1)
  repeat while the stillDown
    set the memberNum of sprite 29 to 59
    updateStage()
  end repeat
  set the memberNum of sprite 29 to 58
  updateStage()
  puppetSprite(29, 0)
end

on crtmodoru
  puppetSprite(29, 1)
  repeat while the stillDown
    set the memberNum of sprite 29 to 61
    updateStage()
  end repeat
  set the memberNum of sprite 29 to 60
  updateStage()
  puppetSprite(29, 0)
end